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// Obtain all information from the Sxtranet Switch 
// The result' will then be "imported" into the OCM 
// product. 

// The "back" statements are used to symbolize the 

// end of a section, it also makes it easier to import 

Error=Error 

// Obtain info ExtranetSwitch Basic Tab 

"ExtranecDevice . IP_ADDR. IP^ADDR " 

call omget using { "dns . systemipaddress " } 

"\nExtranetDevice. HOSTNAME, HOSTNAME " 

call omget using { "dns . systemname" } 

"\nExtranetDevice.SWITCH_TYPE.SWITCH_TYPE " 

call omget using {" flash . Mode iNumber" } 

" XnExtranetDevice . CUR_VERSION . CUR_VERSION " 

call omget using { "DirRestore.CurVersion" }. • 

" XnExtranetDevice. DOMAIN_NAME.DOMAIN_NAME " 

call omget using ( "dns . domainname" } 

"\nExtranetSwitch. PRIMARY_SERVER. PRIMARY_SERVER " 

call omget using { "dns .primarydnsserver" } 

" XnExtranetSwitch . SECONDARY'S ERVER . SECONDARY'S ERVER " 

call omget using { "dns . secondarydns server " } 

"XnExtranetSwitch.TERTIARY_SERVER.TERTIARY_SERVER " ' . 

call omget using { "dns . tertiarydnsserver" } 

// Obtain info for Shutdown Tab ■ 

"XnExtranetSwitch.DISABLE_NEW_LOGiNS.DISABLE_NEW_LOGINS " 
call omget using { "Security. NewLoginsEnabled" ) 

"XnExtranetSwitch. DISABLE_RESTART_LOGINS .DISABLE_RESTART_LOGINS " 

call omget using { "Shutdown . DisableLoginsOnRestart""} 

" XnExtranetSwitch. SYSTEM_SHUTD0WN.CHOICEB0X " 

call omget using { "Shutdown. Mode" } 

"XnExtranetSwitch. SYSTEM'SHUTDOWN.TEXTBOX " 

call omget using { "Shutdown . EventTimeDelay" ) 

"XnExtranetSwitch. POST'SHUTDOWN.POST'SHUTDOWN " 

call omget using { "Shutdown. EventAction" }■ 

"XnExtranetSwitch. REBOOT_DRIVE.REBOOT_DRIVE " 

call omget using { "DiskRdn. Boot Device " } 

// lets get some capacity stuff 

"XnExtranetSwitch.TUN'USERS.NUM'USERS " 

call omget using { "dbgroups . group (ROOT :: SUBTREE] . persons . numentries " } 
" XnExtranetSwitch. TUN'USERS .MAX_TUNNELS " 
call omget using { "Flash. maximumusers" }. 

// Obtain info for ExtranetSwitch Admin tab 
" XnExtranetSwitch . USER_ID . USER__ID " 
call omget using { "flash. adminuid"} 
"XnExtranetSwitch. PASSWORD. PASSWORD " 
call omget using { "flash . adminpas sword " } 
"XnExtranetSwitch. IDLE'TIMEOUT. IDLE_TIMEOUT " • 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [GENERAL, - 
] . AdminldleTimeout" } 

// Obtain info for ExtranetSwitch Service Tab 
"XnExtranetSwitch. IPSEC. PUBLIC " 

call omget using.{ "security .untrustedipsecenabled" } 



"\nExtrane.tSwitch.IPSEC. PRIVATE " 

call omget using {" security . trustedipsecenabled" } 

"\nExtranetSwitch.PPTP. PUBLIC " 

call omget using { "security .untrustedpptpenabled" } 

" \nExtranet Switch . PPTP . PRIVATE " 

call omget using{ security . trustedpptpenabled" } 

" \nExtranetSwitch . L2TP_L2F . PUBLIC " 

call omget using{ "security . untrustedl2f enabled" } 

."\nExtranetSwitch.L2TP_L2F. PRIVATE " 

call omget using{ " security . trustedl2f enabled" } 

"\nExtranetSwitch.L2TP_L2F. PUBLIC " 

call omget using { "security .untrustedl2tpenabled" } 

"\nExtranetSwitch.L2TP_L2F. PRIVATE " 

call omget using{ " security . trustedl2 tpenabled" } 

" \nExtranetSwi t ch . HTTP_PRIVATE . HTTP_PRIVATE " 

call omget using { "security . trustedhttpenabled" } 

"\nExtranetSwitch.SNMP_PRIVATE.SNMP_PRIVATE " 

call omget using{ "security . trustedsnmpenabled" } 

"\nExtranetSwitch.FTP_PRIVATE.FTP_PRIVATE " 

call omget using { "security . trustedf tpenabled" } 

" XnExtraiietSwitch . TELNET_PRIVATE . TELNET_PRIVATE " 

call omget using {" security . trustedtelnetenabled" } 

"\nExtranetSwitch. ALLOW_T2T.ALLOW_T2T " 

call omget using { "security .allowtunneltotunnel" } 

"\nExtranetSwitch. ALLOW_EUTBO.ALLOW_EUTBO "- 

call OmGet using { "Security . AllowClientToBranch" } 

"\nExtranetSwitch.ALLOW_BOTBO.ALLOW_BOTBO " 

call OmGet using { "Security .Al lowBranchToBranch" } 

// Obtain info ExtranetSwitch AutoBackup Tab 

" \nExtranetS.wi tch . ABUG_R0W1 . ABUG_ENABLED »' 

call omget using { "dirbackup .primaryzenabled" } 

"\nExtranetSwitch.ABUG_ROWl.ABUG_HOST " 

call .omget using { "dirbackup .primaryhost" } ■ 

" \nExt ranetSwi t ch . ABUG_R0W1 . ABUG_PATH " 

call omget using { "dirbackup . primarypath" } 

" \nExtranetSwi tch . ABUG_R0W1 . ABUG_INTERVAL " 

pint=call omgetnum using { "dirbackup .primaryinterval" } 

pint=pint/60 

pint 

" \ nEx t r ane t S wi t ch . ABUG_RO W 1 , ABUG^US ERID " 

call omget using { "dirbackup .primaryusername" } 

"\nExtranetSwitch.ABUG__ROWl.ABUG_PASSWORD " 

call omget" using { "dirbackup .primarypassword" } 

"\nExtranetSwitch. ABUG_R0W2 . ABUG_ENABLED " 

call omget using { "dirbackup . secondaryzenabled" } 

"\nExtranetSwitch.ABUG_R0W2 .ABUG_HOST " 

call omget using { "dirbackup. secondaryhost" } 

"\nExtranetSwitch .•ABUG_R0W2 . ABUG_PATH " 

call omget using { "dirbackup . secondarypath" } 

"\nExtranetSwitch.ABUG_R0W2 . ABUG_INTERVAL " 

sint=call omgetnum using { "dirbackup . secondaryinterval" } 

sint=sint/60 , 

sint 

" \nExtrane tSwitch . ABUG_R0W2 . ABUG^USERID " 

call omget using { "dirbackup. secondaryusername"} 



"\nExtranetSwitch. ABUG_R0W2 .ABUG_PftSSWORD " 

call omget using { "dirbackup . secondarypas sword " } 

"\nExtranetSwitch. ABUG_R0W3 . ABUG_ENABLHD " 

call omget using { "dirbackup . tertiaryzenabled" } 

"\nExtranetSwitch. ABUG_R0W3 .ABUG_HOST " 

call omget using { "dirbackup . tertiaryhost" } 

"\nExtranetSwitch. ABUG_R0W3 . ABUG_PATH " 

call omget using { "dirbackup . tertiarypath" } 

"\nExtranetSwitch.ABUG_R0W3 .ABUG_ INTERVAL " 

tint=call omgetnum using { "dirbackup . tertiaryinterval " } 

tint=tint/60 

tint 

"\nExtranetSwitch.ABUG_R0W3 .ABUG_USERID " 
call omget using { "dirbackup . tertiaryusername" } 
"\nExtranetSwitch. ABUG_R0W3 . ABUG_PASSWORD " 
call omget using { "dirbackup . tertiarypassword" } 

// obtain the boot configuration from switch 
entry = call omfirst using { "namedconf ig" } 
cond = (entry 1= 

"\nExtranetSwitch.BOOT_SELECT.BOOT_SELECT " 
while cond using 

{ 

call omget using { "namedconf ig[" entry" ] .desc"} 
II 11 ■ 

entry = call omnext using -{ "namedconf ig [ "entry" ]" } 
cond = (entry != "") 

} • " 

// obtain performance data 

fkey = call omfirst using { "DC. SummaryHi story " } 

cond = (fkey != "") 
while cond using 

svDateString=scall omget using { "DC. SummaryHi story ["fkey"] .Time stamp " } 

svTotalKey=svDateString+" : ; TOTAL" 

"\nExtranet Performance. TRENDING " 

svDateString 

II II 

call omget using { "DC.SummaryHistory ["svTotalKey"] .TotalSessions" } 
II ti 

call omget using { "DC.SummaryHistory ["svTotalKey"] .AdminSess ions" } 
II II , 

call omget using { "DC .SummaryHistory ("svTotalKey"] . PPTPSessions" } 
II It 

call omget using { "DC.SummaryHistory ["svTotalKey"] . IPSecSessions" } 
II II ■ 

call omget using { "DC.SummaryHistory ["svTotalKey"] .L2FSessions" } 

M H 

call omget using { "DC.SummaryHistory ["svTotalKey"] .L2TPSessions" } 
"\nback" 



fkey = call omnext using{ "DC. SummaryHi story ["fkey"] " } 
cond (fkey !=»"") 

} 



// obtain the' SNMP trap receivers 
Error = 
entry = 

entry = call omfirst using {"traphost"} 

if { ( entry == ( Error == "Failure") ) then using 

{ . ■ 

Error = " " 

} ■ ■ 

if ( entry !» ) then using 

{ 

• cond = (entry != "") 
while cond using 

• • { • . 

"\nBayP_ExtranetSNMP.TRAP_TABLE " 

""entry" " 
II II 

call "omget using { "traphost f "entry" ]. enabled" } 
II II 

call omget using. { "traphost ["entry" ] . community" } 
"\nback" 

entry = call omnext using { "traphost ("entry"] " } 
cond = (entry 1= 

} 

} . 

// obtain the various snmp scripts 
Error = " 

f ilename=call omfirst using {"script"} 

if (( filename ) (Error == "Failure" ) ) then using 

{ ^ ■ 

Error = " " 

} 

cond = (filename != "") 

while cond using 

{ 

" \nBayP_ExtranetSNMP . SCRIPT_TABLE " 

//call omget using { "script ["filename"] .description" } 
file = call omget using { "script ["filename"] .description" } 
" ' " file " ' " 

call omget using { "script ( "filename"] . interval" } 
II fi ' . 

call omget using { "script ( "filename"] . repeatcount" } 

" "filename"" 

"AnbacJc" 

filename = call omnext using { "script ["filename"] " } 
cond = ( filename != ) 

} 

"\nback" 

// obtain the IPX parameters 

" \nExtranet IPX . PUB_NET_ADDR . PUB_NET_ADDR " 

call omget using { "ipxintfomcls . ipxpublicaddress " } 

"\nExtranet IPX. NEAR SERVER. NEAR .SERVER " 



nearserv = call omget using { "ipxintfomcls .def aultnearestserver" } 
" ' "nearserv ' 

"\nExtranetIPX.MAX_SAP.MAX_SAP " 

call omget using { "ipxintfomcls . sapentries" } 

// obtain the IPX interfaces 

ifacekey = call omfirst using { "IpxIntfOmCls . IpxPrivateLANS" } 
cond = (ifacekey != "") 
while cond using 

{ 

//get values for row 

"\nExtranetIPX. Interface_Table " 
ifacekey 

II n . * 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ("ifacekey"] .Slot" } 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ["if acekey"] .Port" } 
II II . 

call omget using { "IpxIntfOmCls . IpxPrivateLANS ["ifacekey"] . IpxAddress" } " " 

call omget using { "Ipxintf OmCls . IpxPrivateLANS ["if acekey" ] .Encap" }' 

call omget using {" Ipxintf OmCls . IpxPrivateLANS ("if acekey" ]. Enable" } 
"Vnback" 

ifacekey = call omnext using 

{ "ipxintfomcls. ipxprivatelans ["if aceJcey"] "} 
cond = (ifacekey != "") 

} 

"\nback" 



// obtain RADIUS authentication 

Error="" ( • ' 

" \nBayP_RadAuth_Server . ENABLE^RADIUS . ENABLE_RADIUS " 
call omget using { "DbRadiusAuthServers . Enabled" } 

svAuthKey = call omfirst using { "DbRadiusAuthServers .Radius AuthServer" } 

//if no key, then need to create a server entry in the database 
if (svAuthKey "") then using 

Error = "" 

BaseDn = call omget using { "LdapConf ig . BaseName" } 

svAuthKey="cn=radiusl, ou=Radius, ou=AuthenticationServers , "+BaseDn 
^ call omcreate using .{ "DbRadiusAuthServers.RadiusAuthServer(" svAuthKey"] "} 

if (svAuthKey != "") then using 

{ • ■ ■ 

//do gets from database - 
" \nBayP_RadAuth_Server . DELIMITER . REMOVE_SUFFIX " 

call omget using 

{ "DbRadiusAuthSezrvers . RadiusAuthServer [ " svAuthKey" ] . StripUidSuf f ix" } 
"\nBayP_RadAuth_Server. DELIMITER. DELIMITER " 
raddel=call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey" ] . uidSuf f ixDelimeter " } 
" ' "raddel" • " 

"\nBayP_RadAuth_Server. ENABLE AXENT. ENABLE AXENT " 



call omget using 

{ "DbRadiusAuthServers.RadiusAuthServer ["svAuthKey"] -.AuthMethodAXENT" } 
" \nBayP_RadAuth_Server . ENABLE_SECURID . ENABLE_SECURID " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ svAuthKey " ] . AuthMethodSECURID" } 
" \nBayP_RadAuth_Server . ENABLE_CHAP . ENABLE_CHAP " 
call omget using 

{ " DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey " ] . AuthMe thodCHAP " } 
" \nBayP_RadAuth_Server . ENABLE^MSCHAP . ENABLE^MSCHAP " 
call omget using ■ '■ 

{ "DbRadiusAuthServers .RadiusAuthServer ("svAuthKey"] . AuthMe thodMS CHAP" } 
" \nBayP_RadAuth_Server . ENABLE_PAP . ENABLE_PAP " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . AuthMe thodPAP" } 
//host enable 

\nBayP_RadAuth_Server . ENABLE_PRIMARY .ENABLE^PRIMARY " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Pr imaryHost Enabled".} 
" \nBayP_RadAuth_Seryer . ENABLE_ALT1 . ENABLE_ALT1 " 
call omget using 

{ "DbRadiusAuthServers • RadiusAuthServer ( "svAuthKey"]. .AlternatelHostEnabled "} 
" \nBayP_RadAuth_Server . ENABLE_ALT2 . ENABLE_ALT2 " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Alternate2HostEnabled" } 

//host names 

" \nBayP_RadAuth_Server . PRIM_HOSTNAME . PRIM_HOSTNAME " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey" ] . PrimaryHos t " } 
" \nBayP_RadAuth_Server . ALTl^HOSTNAME . ALTl^HOSTNAME " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey" ] . Al ternatelHost " } 
" \nBayP_RadAuth_Server . ALT2_H0STNAME . ALT2_H0STNAME " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Alternate2Host " } 

//ports 

" \nBayP_RadAu th_Server . PRIM_PORT . PRIM_PORT " 
call omget using ■ 

{ "DbRadiusAuthServers . RadiusAuthServer [ " svAuthKey" ] . PrimaryHostPort " } 
"\nBayP_RadAuth_Server . ALT1_P0RT. ALT1_P0RT " 
call omget using 

{ "DbRadiusAuthServers . RadiusAuthServer ["svAuthKey"] . AlternatelHostPort " } 
"\nBayP_RadAuth_Server . AIjT2_P0RT. ALT2 PORT " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Alternate2HostPort" } 
//passwords 

" \nBayP_RadAuth_Server . PRIM__SECRET . PRIM_SECRET " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . PrimaryHostPassword" } 
"\nBayP_RadAuth_Server . ALT1_SECRET. ALTl^SECRET " 
call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . AlternatelHostPassword" } 
"\nBayP RadAuth Server. ALT2 SECRET. ALT2 SECRET " 



call omget using 

{ "DbRadiusAuthServers .RadiusAuthServer ["svAuthKey"] . Alternate2KostPassword" } 



// obtain RADIUS accounting 

" \nBayP_RadAcct_Server . ENABLE_INT_RADIUS . ENABLE_INT_RADIUS " 
call omget using { "DbRadiusAcctServers . Enabled" } 

accsrvkey = call omfirst using { "DbRadiusAcctServers . RadiusAcctServer " } 
if ( ( accsrvkey == ) && ( Error == "Failure" ) ) then using • 
Error = "" 

} - . ' 

//if no key, then need, to create entry, 
if (accsrvkey == "") then using 

{ • ' • • 

BaseDn = call omget using. { "LdapConfig . BaseName" } 

if ( Error == "" ) then using 

{ 

, accs2rvkey=:"cn=accl, ou=radius, ou=accounting servers, "+BaseDn 
. call omcreate using 
{ "DbRadiusAcctServers .RadiusAcctServer ["accsrvkey"] " } 

if ( Error == "" ) then using 
( 

accsrvkey=call omfirst using 
{ "DbRadiusAcctServers .RadiusAcctServer" } 

} ^ 

} . 

//host enable 

if ( accsrvkey l= "" ) then using 

{ ■ ■ 

"\nBayP_RadAcct_Server.ENABLE_EXT_RADIUS.ENABLE_EXT_RADIUS " 
call omget using 

{ "DbRadiusAcctServers. RadiusAcctServer ["accsrvkey"] .HostEnabled" } 

//host names 
" \nBayP_RadAcct_Server . HOSTNAME . HOSTNAME " 

call omget using { "DbRadiusAcctServers . RadiusAcctServer ["accsrvkey" ]. Host 
//ports 

" \nBayP_RadAcct_Server . PORT . PORT " 
call omget using 
{ "DbRadiusAcctServers .RadiusAcctServer ["accsrvkey"] .HostPort" } 
"\nBayP_RadAcct_Server. SECRET. SECRET " 

call omGet using 

{ "DbRadiusAcctServers .RadiusAcctServer ("accsrvkey"] . HostPassword" } 

" \nBayP_RadAcct_Server . UPDATE^INTRVL . UPDATE_INTRVL " 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [GENERAL, - 

] .AcctUpdateFreq" } 



// obta in infiD on which LDAP we SlZQ usinQ 



"\nBayP_LDAP.INTERNAL_EXTERNAL " 

call omget using { "LdapConf ig.useremote" } 

// get info for internal LDAP 
"\nBayP_IntLDAP_Server . IS_RUNNING " 

'call omget using { "Slapd . IsRunning" } 

keyLocalAuthServer = call omfirst using { "DbLocalAuthServers . LocalAuthServer" } 
"\nBayP_IntLDAP_Server .SUFFIX_ROW.REMOVE_FROM_UID " 
ildapuiscall omget using 

{ "DbLocalAuthServers . LocalAuthServer [ "keyLocalAuthServer" ] . stripUidSuf f ix" } ' 
if (ildapui == "") then using 

{ ■ . - . ■ 

"FALSE" 

} ' . . . • 

else using 

•{ ~ . . ■ ■ 

" ' "ildapui " ' " 

} • 

"\nBayP_IntLDAP_Server . SUFFIX_ROW. DELIMITER " 
ildapdel=call omget using 

{ "DbLocalAuthServers . LocalAuthServer [ "keyLocalAuthServer" ] . UidSuf f ixDelimeter " } 
" '"ildapdel"' " 

/•/ obtain info for external LDAP 

" \nBayP__ExtLDAP_Server . SUFFIX_ROW . REMOVE_FROM_UID " 
eldapui=call omget using 

( "DbLocalAuthServers . LocalAuthServer [ "keyLocalAuthServer" ] . stripUidSuf f ix" } 
if (eldapui "") then using 

{ 

"FALSE" 

• } ' • - . 

else using . 

{ ■ • ■ • . . 

" • "eldapui" ' " 

} 

"\nBayP_ExtLDAP_Server.SUFFIX_ROW. DELIMITER " 
ldapdel=call omget using 

{ "DbLocalAuthServers .LocalAuthServer ["keyLocalAuthServer"] .UidSuf f ixDelimeter" } 
" '"Idapdel"' " 

"\nBayP_ExtLDAP_Server.BASE_DN.BASE_DN " 

basedn = call omget using { "Idapconf ig. remotebasename" } 

"•"basedn"'" 

"\nBayP_ExtLDAP_Server .MASTER. ELDAP_HOSTNAME " 

call omget using { "Idapprofileserver [0] .host" } 

" \nBayP_ExtLDAP_Server . MASTER . PORT " 

call omget using { "Idapprofileserver (0] .usess-l"} 
II II ' 

call omget using { "Idapprof ileserver [0] .port " } 

M It . ' 

call omget using { "Idapprof ileserver [0] . sslport " } 
"\nBayP_ExtLDAP_Server. MASTER. BIND_DN " 

masterdn = call omget using { "Idapprof ileserver [0] .bindname" } 
" ' "masterdn" • " 

"\nBayP ExtLDAP_Server. MASTER. BIND PASSWORD " 



call omget using { " Idapprof ileserver [0] . bindpassword" } 

" \nBayP_ExtLDAP_Server . SLAVEl . ELDAP_HOSTNAME " 

call omget using { "Idapprof ileserver [1] .host " } 

"\nBayP_ExtLDAP_Server . SLAVEl ..PORT " 

call'omget using { "Idapprof ileserver [1] . usessl" } 
II II 

call omget using { "Idapprof ileserver [1] .port" } 
II It 

call omget using { "Idapprof ileserver [1] . sslport" } 
"\nBayP_ExtLDAP_Server. SLAVEl. BIND DN " 

slaveldn = call omget using { "Idapprof ileserver [1] .bindname" } 
" • "slaveldn" ' " 

" \nBayP_ExtLDAP_Server . SLAVEl . BIND_PASSWORD " 

call omget using {" Idapprof ileserver [1] . bindpassword" } 

"\nBayP_ExtLDAP_Server.SLAVE2.ELDAP_H0STNAME " 

call omget using { "Idapprof ileserver [2] .host"} 

" \nBayP_ExtLDAP_Se2rver . SLAVE2 . PORT " 

call omget using {" Idapprof ileserver [2] . usessl " } 
II II ( 

call, omget using { "Idapprof ileserver [2] .port " } 
II It 

call omget using {" Idapprof ileserver [2] . sslport'* } 
" \ nBayP_ExtLDAP_Server . SLAVE2 . BIND_DN " 

slave2dn = call omget using { "Idapprof ileserver [2] .bindname" } 

"slave2dn" 

" \nBayP_ExtLDAP_Server . SLAVE2 . BIND_PASSWORD " 

call omget using {"Idapprof ileserver [2] .bindpassword" } 

cipherkeyscall omfirst using { "SslConf ig.CipherSpec" } 

ccond = (cipherkey 1= NULL) 

while ccond using , . ■ 

{ . • 

"\nBayP_ExtLDAP_Server. Encrypt ion_Table " 
//get values for row, 

call omget using { "SslConf ig.CipherSpec ["ciph'erkey"] .Enabled"} 
It tl 

name = call omget using { "SslConf ig . CipherSpec [ "cipherkey" ]. Name" 

"•"name"'" 

"\nback" 

cipherkey = call omnext using{ "SslConf ig.CipherSpec ["cipherkey"] " } 
ccond a (cipherkey "") 

} 

"\nback" 

// Obtain User IP address pool information 

"\nBayP_UserIP_Server . ADDR_ACQUIS i ADDR_ACQUIS " 

call omget using { "Address Acquis it ion. Acquis it ionType" } 

"\nBayP_UserIP_Server. CACHE. SIZE " 

call omget using { "AddressAcquisition.DHCPCacheSize" } 
" \nBayP_UserIP_Server . RELEASE . IMMEDIATE " 

call omget using ( "AddressAcquisition.DHCPReleaselmmediately" } 

"\nBayP_UserIP_Server .DHCP .TYPE " 

call omget using { "AddressAcquisition.DHCPType" } 

"\nBayP_UserIP_Server . PRIMARY^SERVER " 

call omget using{ "DhcpServer [0] . ServerAddress" } 



"\nBayP_UserIP_Server . SECONDARY_SERVER " 

call omget using{ "DhcpServer [1] . ServerAddress " } 

"\nBayP_UserIP_Server .TERTIRARY_SERVER " 

call omget using{ "DhcpServer [2] . ServerAddress " } 

AddrKey = call omfirst using { " IpAddrPool " } 

ccond = (AddrKey ! = "") 

while ccond using 

{ 

"\nBayP_UserIP_Server . ADDR_TABLE " 

call omget using {" ipAddrPool [ "AddrKey" ]. startaddr" } 
ft II 

call omget using { "IpAddr Pool ["AddrKey"] .endaddr"} 
It II 

call omget using { "IpAddrPool ("AddrKey"] .numberofaddrs"} 
II II ^ 

AddrKey 

"\nback" 

AddrKey = call omnext using {" IpAddrPool ["AddrKey" ]" } 
ccond = (AddrKey 1= "") 

} 

"\nback" 

// obtain ethernet interface information 



Entry = call omfirst using {"Interface"} 

if ( { Entry == ) && ( Error "Failure" ) ) then using 

{ 

Error = "" 
} 

CondEntry = (Entry != "") 
while CondEntry using 

{ • ■ . 

lookType = call omget using {" Interface [ "Entry" ]. Type" } 

// only do for Ian interfaces 
if (lookType 2) then using 

{ 

"\nExtranetInterf ace .LAN_Interf ace " 

call omget using {" Interface ["Entry "]. slot " } 

M It 

call oniget using { "Interface ["Entry"] . Interface" } 
It II 

II II 

call omget using {" Interface [ "Entry" ]. DefaultGateway" } 
II It 

lookLoc = call omget using {"Interface ["Entry"] .DevLoc"} 
" "lookLoc" " 

call omget using {" Interface ["Entry" ]. Public'! } 
II II - 

.call omget using { "Interface [ "Entry"] . Enabled" } 

n It 

des.c = call omget using { "Interface ["Entry"] .Desc" } 
if ( desc 1= "" ) then using 

{ 

" ' "desc" * " 

} ■ ■ ^ • 



else using 

{ ■ 

II I I It 

} 

iplntf = call omfirst using {"Iplntf"} 

if ( ( iplntf == ) ScSc ( Error == "Failure" ) ) then using 

{ 

Error = "" 

} . • 

Condiplntf = (iplntf ! = "") 
while Condiplntf using 

{ 

ipDevLoc = call omget using •{" iplntf [ "iplntf "] .DevLoc" } 
if ( ipDevLoc == lookLoc ) then using 

{ 

isSystem = call omget. using { "iplntf ["iplntf "]. IsSystemlpAddr 

// only do fpr the non-system interfaces 
if ( isSystem == "NO" ) then using 

{ ■ 

// Keep count of the number of addresses for this card 

II fi 

call omget using {" iplntf [" iplntf IpAddr" } 

MM. 

call omget using { "Iplntf ["iplntf "] .Subnet" } 



} 



} 



iplntf = call omnext using. { "Iplntf ["iplntf "]" } 
Condiplntf = (iplntf != "") 

}- 
} 

Entry = call omnext using { "Interface ["Entry" ]" } 
CondEntry =- (Entry != "" ) 

} . • • , 

//obtain WAN information 

Entry = call omfirst using {"Interface"} 

if ( ( Entry == "" ) • ( Error == "Failure" ) ) then using. 
{ 

Error = "" 

}• 

CondEntry = (Entry != "") 
while CondEntry using 

lookType = call omget using {" Interface [ "Entry" ]. Type" } 
■ looJcDESC = call omget using ( "Interface [ "Entry") .Hardware" } 



// only do for wan interfaces 
if (lookType 1) then using 

{ 



if (lookDESC 1= "empty") then using 
{ 

"\nExtranetInterface.WAN_Interface " 

call omget using { "Interface ["Entry"] . slot" } 
II II 

call omget using { "Interface ["Entry"] . Interface" } 
II II 

lookLoc = call omget using { "Interface ["Entry"] .DevLoc" } 
" "lookLoc" " 

call omget using {" Interface ["Entry" ], Enabled" } 

M n 

desc = call omget using { "Ppplntf [" lookLoc" ]. description" } 
if ( desc != ) then using 

{ " 

" * "desc" ' " 

} 

else using 

{ . ■ ■ 

M t I II 

- } ■ • . ' 

tl tl 

locip=call omget using { "Ppplntf ("lookLoc"] . localipaddress" } 
" ' " locip" ' " 

ipcp=call omget using { "Ppplntf ["lookLoc"] . ipcpacceptremote" } 
if (ipcp == "") then using 

{ 

"FALSE " • 

} 

else using 

{ 

" * "ipcp" • " 

} 

peerip=call omget using { "Ppplntf ("lookLoc"] .peeripaddress" } 
" ' "peerip" * " 

nopap=call omget using { "Ppplntf ["lookLoc"] .NoPapNeg" } 
if {nopap "") then using 

{ ■ 

"FALSE " 

} • .. ■ 

else using 

{ 

" • "nopap" ' " 

} . 

nochap=call omget using { "Ppplntf ("lookLoc"] .NoChapNeg" } 
if (nochap == "") then using 

{ ' • 

"FALSE " 

.} 

else using 

{ ■ 

"•"nochap"' " 

} ■ . - ■ • ■ 

name = call omget using { "Ppplntf ["lookLoc"] . LocalPapName" } 

"'"name"'" 

passwd = call omget using { "Ppplntf ("lookLoc"] .LocalPapPasswd" } 
" ' "passwd" * " 



noacc=^call omget using ( " Ppplntf [ "lookLoc" ] . NoAccNeg" } 

if (noacc' == "") then using 

{ 

"FALSE " 

} 

else using 

{ 

■"" noacc '" " 

} 

nopc=call omget using { "Ppplntf ["lookLoc"] .NoPCNeg" } 

if (nope == "") then using 

{ 

"FALSE " 

} ■• ■ . 

else using 

{ 

" • "nope " ' " 

} 

lcpfail=call omget using { "Ppplntf ["lookLoc" ]. LCPEchoFai lure" } 
Icpfail"' " 

lcpint=call omget using { "Ppplntf ["lookLoc"] . LCPEchoInterval" } 
Icpint"' " 

novj=call omget using { "Ppplntf [ "lookLoc "] .NoVJNeg" } 
if (novj == then using 

{ 

"FALSE " 

} 

else using 

. { ■ ' 

" ' "novj " * " 

} 

novjc=call omget using { "Ppplntf ["lookLoc"] .NoVJCCompNeg" } 
if (novjc "") then using 

{ ' •• 

"FALSE " ■ 

} 

else using 

{ 

" ' "novj c" ' " 

} 

vjslots=call omget using { "Ppplntf ["lookLoc" ] .VJMaxSlots" } 
" • "vj slots " * " 

} 

} ■ . 

Entry = call omnext using {" Interface ["Entry" ]" } 
CondEntry = (Entry != ) 

} . - ■ * 

// obtain PPTP information 

"\nBayP_Tunnel . PPTP " 

call omget using { "DbGroups . Group [ROOT] .Accounts .Account [PPTP, - 
] . AuthServerRef 2Type" } 

M II 

call omget using { "DbGroups .Group [ROOT] .Accounts .Account [PPTP, - 

] .AuthServerRef 3Type"} 

" \nBayP_Tunnel . PPTP_MSCHAP_ROW . NOT^ENCRYPT " 

call omget using { "Dbgroups .Group [root] .Accounts -Account [PPTP, - 
] .DefaultEncryptionNone"} 



"\nBayP_Tunnel . PPTP_MSCHAP_ROW . MSCHA? " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, 
) .DefaultEncryptionRC4_128" } 

"\nBayP_Tunnel . PPTP_MSCHAP_ROW , RC44 0 " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - 

] .DefaultEncryptionRC4_40"} 

" \nBayP_Tunnel . PPTP_CHAP . PPTP__CHAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - ' 

] .DefaultAuthMethodChap" } 

" \nBayP_Tunnel . PPTP_PAP . PPTP_PAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [PPTP, - 
] .DefaultAuthMethodPAP"} 

// obtain L2TP information 
//••\nBayP_Tunnel .L2TP " 

//call omget using { "DbGroups .Group [ROOT] .Accounts .Account [L2TP, 
] . AutliServerRef 2Type" }■ 
//" " 

//call omget using { "DbGroups .Group [ROOT] .Accounts .Account [L2TP, 

] .AuthServerRef3Type*'} 

" \nBayP_Tunnel . L2TP_MSCHAP_R0W .NGT_ENCRYPT " 

call omget using { "Dbgroups . Group [root ] .Accounts .Account [L2TP, - 
] .DefaultEncryptionNone" } 
••\nBayP_Tunnel .L2TP_MSCHAP_R0W.MSCHAP " 

call omget using { "Dbgroups . Group [root] .Accounts .Account '[L2TP, - 

] .DefaultEncryptionRC4_128"} 

" \nBayP_Tunnel . L2TP_MSCHAP_R0W . RC440 " 

call omget using { "Dbgroups . Group [root] .Accounts .Account [L2TP, - 

] .DefaultEncryptionRC4_40"} 

" \nBayP_Tunnel . L2TP_CHAP . L2TP_CHAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2TP, - 

] .DefaultAuthMethodChap"} 

" \nBayP_Tunnel . L2TP_PAP . L2TP_PAP " 

call omget using { "Dbgroups .Group [root] .Accounts .Account (L2TP, - 

] .DefaultAuthMethodPAP"} 

//"\nback" 

// obtain L2F 

"\nBayP_Tunnel .L2F " 

call omget using { "DbGroups . Group [ROOT] .Accounts .Account [L2F, - 
] . AuthServerRef 2Type" } " " 

call omget using { "DbG roups .Group [ROOT] .Accounts .Account [L2F, - 
] .AuthServerRef 3Type"} 

"\nBayP_Tunnel .CHAP_ENABLED.CHAP_ENABLED " 

call omget using { "Dbgroups .Group [root] .Accounts .Account CL2F, - 
] .DefaultAuthMethodChap"} 

" \nBayP_Tunnel . PAP_ENABLED . PAP_ENABLED " 

call omget using { "Dbgroups .Group [root] .Accounts .Account [L2F, - 

] .DefaultAuthMethodPap" } 

"Xnbaclc" 

// obtain IPSec information 
reallPsecKey = "" 

groupKey = call omfirst using { "DbGroups .Group" } 

if ( ( groupKey == "" ) { Error =- "Failure" ) ) then using 



{ ■ , 

// can safely ignore this error 

Error = "" 

} 

if { group Key != ) then using 

( 

accountKey = call omfirst using 
{ "DbGroups .Group ["groupKey" ] .Accounts .Account " } 

if ( ( accountKey ) ( Error == "Failure" ) ) then using 

{ 

// can safely ignore this error 
Error = " " 

} 

accountCondition = (accountKey I =- "") ( reallPsecKey == "" ) 
while accountCondition' using 

{ 

accountType = call omget using 
.{ "DbGroups .Group ["groupKey"] . Accounts . Account [ "accountKey" ] . TunnelType" } • 
if ( accountType == "IPsec" ) then using 

{ 

reallPsecKey = accountKey 

} 

accountKey = call onmext using 
{ "DbGroups.. Group ["groupKey"] .Accounts .Account ["accountKey"] " } 

accountCondition = ((accountKey 1= "") '&& ( reallPsecKey == "" )) 
} // while there is a subaccount 
} // End - group]<ey != NULL 

"\nBayP_Tunneis . IPSEC- " 
refl=call omget using 

.{ "DbGroups .Group [ROOT] . Accounts .Account [ "reallPsecKey" ] . AuthServerRef 2Type" } 

It I It f 1 " ' " 

" \nBayP_Tunnels IP . AUTH_USER . AUTH_USER " 

call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodSHARED_ 
SECRET" } 

"\nBayP_TunnelsIP.AUTH_RSA:AUTH_RSA " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodCERTIFI 

CATE_RSA" } 

"\nBayP_TunnelsIP.RADAUTH_AXENT.RADAUTH_AXENT " 

call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultAuthMethodAXENT" 

} 

" \nBayP_TunnelsIP . RADAUTH_SECURITY . RADAUTH_SECURITY " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] . Def aultAuthMethodSECURID 

" } 

" \nBayP_Tunnels IP . RADAUTH_GROUP . RADAUTH_GROUP " 

call omget using 

{ "DbGroups .Group [ROOT] '.Accounts .Account ["reallPsecKey"] . Def aultAuthMethodPAP" } 
"\nBayP_TunnelsIP.ENCRYP_TRIPLE.ENCRYP_TRIPLE " 

call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultEncryption3DES_MD 
5" } . • 



" \ nB ay P^Tu^ine 1 s I P . ENCRYP^ES P5 6 . ENCRYP_ES P5 6 " 
call omget using 

( "DbGroups. Group [ROOT! .Accounts .Account ["reallPsecKey"] .Def aultEncryptionDES_MD5 

" } 

" \ nB ay P_Tunne 1 S IP . ENCRY?_ES P4 0 . ENCRYP_ES P4 0 " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ("reallPsecKey"] ,DefaultEncryptionDES_40" 

"\nBayP_TunnelsIP.ENCRYP_AHSHA.ENCRYP_AHSHA " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultEnciryptionHMAC^SH 

A" } 

"\nBayP_TunnelsIP.ENCRYP_AHMD5 .ENCRYP_AHMD5 " 
call omget using 

{ "DbGroups .Group [ROOT] .Accounts .Account ["reallPsecKey"] .Def aultEncryptionHMAC_MD 

5" } ■ , ■ ■ 

" \nBayP_Tunnels . LB_ENABLED . LB_ENABLED " 
•call omget using { "Loadbalance .NodelEnabled" } 
"\nBayP_Tunnels.LB_HOST.LB_HOST " 
call omget using { "Loadbalance . Nodel " } 

" \nBayP_Tunnels . FAX LOVER 1_ENAB LED , FAX LOVER 1_ENAB LED " 
call omget using { "Failover . Nodelenabled" } 
" \nBayP_Tunnels . FAIL0VER1_IPADDR . FAI LOVER 1_IPADDR " 
call omget using { "Failover .Nodel" } 

" \nBayP_Tunnels . FAIL0VER2_ENABLED . FAXL0VER2_ENABLED " 
call omget using { "Failover .Node2enabled" } 
" \nBayP_Tunnels . FAIL0VER2_IPADDR . FAILDVER2_IPADDR " 
call omget using { "Failover .Node2 " } 

"\nBayP_Tunnels . FAIL0VER3_ENABLED . FAXL0VER3_ENABLED " 

call omget using { "Failover .Node3enabled" } 

" \nBayP_Tunnels . FAIL0VER3_IPADDR . FAX LOVERS _IPADDR " 

call omget using { "Failover .Node3 " } 

"VnbacJc". 



